HA$PBExportHeader$w_arg_report.srw
forward
global type w_arg_report from window
end type
type cb_2 from commandbutton within w_arg_report
end type
type cb_1 from commandbutton within w_arg_report
end type
type dw_1 from datawindow within w_arg_report
end type
end forward

global type w_arg_report from window
integer width = 2085
integer height = 900
boolean titlebar = true
string title = "Parametros"
boolean controlmenu = true
boolean minbox = true
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_arg_report w_arg_report

type variables
s_param_report  istruc_param_report_arg
s_parm istr_parm
integer ii_arg
datastore ids_report
datawindow idw
end variables

forward prototypes
public subroutine of_retrieve (any param1)
public subroutine of_retrieve (any param1, any param2)
public subroutine of_retrieve (any param1, any param2, any param3)
public subroutine wf_ejecutar_reporte ()
end prototypes

public subroutine of_retrieve (any param1);
end subroutine

public subroutine of_retrieve (any param1, any param2);/*
*/

idw.retrieve(param1,param2 )

commit;
end subroutine

public subroutine of_retrieve (any param1, any param2, any param3);/*
*/

idw.retrieve(param1,param2 ,param3 )

commit;
end subroutine

public subroutine wf_ejecutar_reporte ();istr_parm.dw_parm[1].setTransobject(SQLCA)
end subroutine

on w_arg_report.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_arg_report.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;istr_parm = Message.PowerObjectParm
string ls_param


//ids_report = istruc_param_report_arg.as_storereport
//
//idw           = istruc_param_report_arg.dw_preview
//
//ls_param = ids_report.object.cparam[1 ]
//ii_arg = ids_report.object.iCantParam[1 ]
//f_msj('','hola' + ls_param ,4 )

end event

type cb_2 from commandbutton within w_arg_report
integer x = 1650
integer y = 156
integer width = 402
integer height = 112
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "Cancelar"
end type

event clicked;parent.hide()
end event

type cb_1 from commandbutton within w_arg_report
integer x = 1646
integer y = 28
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&Ejecutar"
end type

event clicked;parent.function wf_ejecutar_reporte()
cb_2.triggerevent( clicked!)
end event

type dw_1 from datawindow within w_arg_report
integer x = 23
integer y = 24
integer width = 1600
integer height = 752
integer taborder = 10
string title = "none"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

